% ?- split(+L,+N,+L1,+L2).

split([],_,[],[]).
split(L,N,L1,L2):-
    split(L,N,L1,L2,[]).
    
split(L2,0,L1,L2,L1):-!.
split([X|T],N,L1,L2,Acc):-
    my_append(Acc,[X],Acc1),
    N1 is N - 1,
    split(T,N1,L1,L2,Acc1).
    
my_append([],L,L).
my_append([H|T],L,[H|Tail]):-
    my_append(T,L,Tail).
    
    
    
    
    

